home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / mus / midi / MusicXRexxMacs.lha / macros / chords / SEVENTH FLAT FIFTH.mxe < prev    next >
Text File  |  1997-02-05  |  989b  |  53 lines
  1. /* © Dick Doyle */
  2.  
  3.  
  4. options results                    
  5.  
  6.  
  7.  
  8. MXRADIO "Selected Notes,All Notes"        
  9.  
  10.  
  11. MXREQUEST "SEVENTH FLATTENED FIFTH
  12. ,DO IT" 
  13. if result == 0 then exit            
  14.  
  15. MXPOINTER "sleepy"                
  16.  
  17. MXVALUE 1                    
  18. if result == 0 then BEGINSCAN 'selected'
  19. else BEGINSCAN 'all'                
  20.  
  21. if result ~= 0 then do forever            
  22.  
  23.   NEXTEVENT                    
  24.   if result == 0 then break
  25.  
  26.   if EVENT.TYPE == 'NOTE' then do        
  27.     newval = EVENT.NUM + 4
  28.     if newval < 0 then newval = newval + 128
  29.     if newval > 127 then newval = newval - 128
  30.     EVENT.NUM = newval
  31.     ADDEVENT
  32.   end
  33.   
  34.    if EVENT.TYPE == 'NOTE' then do        
  35.     newval = EVENT.NUM + 2
  36.     if newval < 0 then newval = newval + 128
  37.     if newval > 127 then newval = newval - 128
  38.     EVENT.NUM = newval
  39.     ADDEVENT
  40.   end
  41.   
  42.    if EVENT.TYPE == 'NOTE' then do        
  43.     newval = EVENT.NUM + 4
  44.     if newval < 0 then newval = newval + 128
  45.     if newval > 127 then newval = newval - 128
  46.     EVENT.NUM = newval
  47.     ADDEVENT
  48.   end
  49. end
  50. ENDSCAN                        
  51.  
  52. MXPOINTER "normal"                
  53. exit